home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / C for beginners.adf / source / window_intuition.c < prev    next >
C/C++ Source or Header  |  1978-01-17  |  1KB  |  57 lines
  1. /* window_intuition.c 25.2.3  */
  2. /* From Amiga C for Beginners */
  3. /* by Abacus                  */
  4.  
  5. #include <exec/types.h>
  6. #include <intuition/intuition.h>
  7.  
  8. extern struct window *Openwindow();/* Declaration */
  9. extern long *OpenLibrary();  /* Hello Aztek-User */
  10. struct IntuitionBase *IntuitionBase;
  11.  
  12. #define INTUITION_REV 0
  13.  
  14. main()
  15. {
  16.  struct NewWindow NewWindow;
  17.  struct Window *Window;
  18.  long i;
  19.  
  20.  IntuitionBase = (struct IntuitionBase *)
  21.   OpenLibrary("intuition.library", INTUITION_REV);
  22.  
  23.  if(IntuitionBase == NULL)
  24.   exit(FALSE);
  25.  
  26.  NewWindow.LeftEdge  = 20;
  27.  NewWindow.TopEdge   = 20;
  28.  NewWindow.Width     = 200;
  29.  NewWindow.Height    = 80;
  30.  NewWindow.DetailPen = 0;
  31.  NewWindow.BlockPen  = 2;
  32.  NewWindow.IDCMPFlags = NULL;
  33.  NewWindow.Flags = SMART_REFRESH | ACTIVATE |
  34.    WINDOWSIZING | WINDOWDRAG | WINDOWDEPTH |  
  35.    NOCAREREFRESH;
  36.  NewWindow.FirstGadget = NULL;
  37.  NewWindow.CheckMark = NULL;
  38.  NewWindow.Title     = (UBYTE *)"The User window";
  39.  NewWindow.Screen    = NULL;
  40.  NewWindow.BitMap    = NULL;
  41.  NewWindow.MinWidth  = 80;
  42.  NewWindow.MinHeight = 25;
  43.  NewWindow.MaxWidth  = 640;
  44.  NewWindow.MaxHeight = 200; /* PAL - change to 256 */
  45.  NewWindow.Type = WBENCHSCREEN;
  46.  
  47.  if((Window = OpenWindow(&NewWindow)) == NULL)
  48.   exit(FALSE);
  49.  for(i = 0; i < 800000; i++) /* Small Pause */
  50.    ;
  51.  
  52.  CloseWindow(Window);
  53.  CloseLibrary(IntuitionBase);
  54.  exit(TRUE);
  55. }
  56.  
  57.